home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / docs / mags / AmZ_8-HT.lha / amzeiger / amz0399 / bin.lha / BlitzEx1.txt next >
Text File  |  1999-03-13  |  708b  |  60 lines
  1. WBStartup
  2.  
  3. WBenchToFront_
  4.  
  5. WbToScreen 0
  6. Use Screen 0
  7. *Scr = ActiveScreen
  8.  
  9. ;Intuifont Bestimmen
  10.  
  11. FH=Peek.w(Peek.l(*Scr+40)+4)
  12. FN$=Peek$(Peek.l(*Scr+40)+8)
  13. LoadFont 0,FN$,FH
  14. Use IntuiFont 0
  15.  
  16. ; Window Oeffnen
  17.  
  18. SH.w=Peek.w(*Scr+14)
  19. SW.w=Peek.w(*Scr+12)
  20. SB.b=Peek.b(*Scr+30)
  21.  
  22. ;Window Begränzungen
  23.  
  24. SizeLimits 200,120,SW,SH
  25.  
  26.  
  27. Window 0,0,SB,SW,SH-SB,$140F,"Gatget BB2-Kurs",1,2
  28.  
  29. a=0:a$="Vorname"
  30.  
  31. Gosub GadDef
  32.  
  33.  
  34. Repeat
  35.  
  36.   FlushEvents
  37.   ev=WaitEvent
  38.  
  39.   ;Abfragen
  40.   If ev=$40 AND GadgetHit = 0
  41.  
  42.      WLocate 1,30:Print "BUTTON GEDRÜKT "
  43.      VWait 50
  44.      WLocate 1,30:Print " "
  45.  
  46.   End If
  47. Until ev=$200
  48. End
  49.  
  50. ; Gadget Definieren
  51.  
  52. .GadDef
  53. WCls
  54. GTButton 0,0,0,0,100,FH+3,a$,$10
  55.  
  56. ;In das Window Schreiben
  57. AttachGTList 0,0
  58. Return
  59.  
  60.